home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 4 / MacFormat n. 4 (Spain) / MacFormat 4.bin / Demos / Dazzleoids / SHARED.DIR / 00862.ls < prev    next >
Encoding:
Text File  |  1994-10-13  |  309 b   |  25 lines
  1. on exitFrame
  2.   if soundBusy(1) = 1 then
  3.     go(the frame - 1)
  4.   end if
  5. end
  6.  
  7. on keyDown
  8.   shutUp()
  9.   if the key = RETURN then
  10.     doSomething()
  11.   end if
  12.   if the key = ENTER then
  13.     doSomething()
  14.   end if
  15. end
  16.  
  17. on doSomething
  18.   global gOnOK
  19.   if gOnOK = 1 then
  20.     go("pick")
  21.   else
  22.     play done
  23.   end if
  24. end
  25.